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1.0 ABSTRACT. 


FIELD SERVICE PERSOMEL. 11 PLACES THE VIEL/1 IN LOOPBACK 


CHARACTER PATTERN VIA 
Dail. AND COMPARES LOOPBACKED DATA FOR ERRORS. 


2.0 REQUIREMENTS. 
2.1 EQUIPMENT 
+ SYSTEM WITH AT LEAST 4K OF CORE. 
DH-11 
oI OR_ LOOPBACK CONNECTOR FOR DH-11 
1/T WITH MRV11-VA CARD INSTALLED 
KW11/L OR KW1i/P. 
2.2 STORAGE . 
4K OF CORE 


3.0 LOADING PROCEDURE 
THE ABS LOADER IS USED TO LOAD THE PROGRAM AND OVERLAYS. 


ocerer 


4.0 OPERATING PROCEDURES. 
1. LORD ADDRESS 200 AND START TO ENTER PARAMS FROM Me TTY, PROCEED TO SECTION B. 
#THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 
B. CONSOLE DIALOGUE PARAMETER INPUT 


1. [ve a Tee A CRE any trin tS DEFAULT UP BOOP E RR lec THE INTERFACE UNDER TEST. 


BUS ADORESS 
2. THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS 
ADDRESS 


B: TYPEIN ACTUAL VECTOR ADDRESS 


3. ee WILL TYPE QUT THE DEFAULT INTERFACE PRIORITY 
PA ih RR peur 70 ust BErALL . 10 VRCUE 


he PROGRAM WILL ASK FOR THE LINE SELECTION 
A. OE rae (IN OCTAL) OF LINES DESIRED 


(U) TO SELECT LINES 17,16,8,2,0 
ENTER 17,16,8,2,0 <CR> THE’ ORDER 


EO] 
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DOES NOT MATTER 
5S. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMS! 
A. Ha hy CAR. RETURN TO USE DEFAULT VALUE 
B. ACTUAL VALUE 


6. THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET. 
A. SETUP SWITCH REGISTER AS SPECIFIED IN STEP D. 


BI elle he A aes? RUM RE He ATED 


RESTARTS OF 


prabueee suTeH REGIS FIED pn Owe or pRoanA TEST BITHOUT 
Bae ohn At ee 
(IE) SWR=XXXXXX NEW= 


2° “Sicrts 0-7 ae Hive a 7: Noa REGISTER 


3. tU IF ERROR IS COMMITTED 
ene IN PSEC VLE 


"Sieee Sorine-protaen BrecuTion. By STRIKING Te 
TS A REQUEST FLAG TO CHANGE 


Shier Se Rte eH he RHEE BY MB Shase Poo 


FO 
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D. OPERATIONAL SWITCH SETTINGS. 





Sree == 


5: ae SPECIFIED DATA WAS WAS pore THE PROGRAM WILL TYPE A 
Tre IN THE DA NA Mute A ee BE ENTERED PReR BY TYPINS AN 
Poh PLES EY Te bya cee a aia as 
BY ¢(UP ARROW). 
A TEST EXECUTION MAY BE INTERRUPTED BY TYPING THE FOLLOWING 
CHARACTERS ON THE CONSOLE T 
QUESTION MARK = PRINTOUT FIRST. 3 7{iggos OF INPUT BUFFER. (ASCII) 
To PRINTOUT T THE 8 WORDS 
¥BXXXXXY TO PRINTOUT THE 16 BYTES 
AFTER LOC XXXXXX. 
xC TO CONTINUE 
PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING. 
tc = EXIT LOOPBACK MODE (E£.£.SEND tC TO VT61/T) 
AND RESTART PROGRAM AT LOC 200. 


— PARAMS! IS DroeD peat (LPR) 
Pea Paes SATE SR a 

BIT 2 Au T= 1s Stop Bits (0) 
BIT 4 = (1) 
BIT S BOC PR Ty ( pau T= { ( 
BITS 6-9 CEI = 0), BAUD (1101) 
BITS 10-13 » DEFAL Ts 9600 BAUD (1101) 
BIT 14 SST UPLEX a DEFAULT= FULL DUPLEX (0) 


#EZEDEFAULT PARAMS 1=335COHH HEE EEE EES 


VT61/T 
DZVTLA 


L 
Pil 
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GO1 


HO1 


;BASIC DEFINITION OF ERROR CALL 


;GENERAL REGISTER 


i! 
iP Saat 
z S.n x & : S95 20s 999 
* ibe if SB lectsss cc, SRE a 
; BE fe REN RERN = BEE SESE Seem PELE EE EEE Meet 
SE ise: me PH " Srre TR RD SEE EE EEr Enis yase 
& BEE id Sasaeuasiee Shaanaandmaasagsa ere 
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001070 


GEaceccecee | EREEGseueescee ebaee 


3 BS SS isi Gb ab aot on i Mii SIN TINE LR RRR 


LOOPBACK TEST 
Pll 


;XMIT COMPLETE FLAG 


oF 

| om 

yh ? = ai 
4 ce = 
8 i m 
crm4: SaBOMEENSS ji Sar seagttetirieee 
. —. Serer estinaniee toate 

“ UU) t(thoe>>>>>>>>> 

Ft Bacau BSB pBBBz> 
Fp Sosa ceeereee eer aaaasaaaas 
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se CRORE CeCe CONCH CNNRERRRRCRCER CR COC OR Om emmmmemntte 
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WWWWWWWW) 
PS pee eee 
OWONWUAL Wie 


BSS TFA LGRHOSO NOM PENS SN OOS 


cu 6 BBs ie 
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D4O000 

h20000 

020000 

o0010 

000014 

000014 





tears 


ae Ge 


F 
g 
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Gert Gaso000 


ce 
aq 


C=34 
-EQUIV RY,CSR 
“EQUIV RY,RCSR 


BATA SET STATUS CHANGE FLAG 


: INHIBIT PRINTOUTS 


: 


776 
VECTORS 


; IN UNUSED LOCATI 
LOADED 


TRAP 
; LOCATION a} WILL CATCH IMPROPERLY 


TARTING ADDRESS OF PROGRAM 


; JUMP S 
AT 204. DO THE RESTART. 


TO 
;RESTART 


pe 
‘ 
4 


pPteied il bia SRE PRBS Seb e dab sata 


KO1 
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te ee en ee 
1 


001100 1 
; pat TT WITH A 
Se Uh nana ey Bae ie. 
10 bE USED AS THE FILLER TER. 
: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS RE 
ese 
1) USING A TRAP INSTRUCTION 
: TYPE  ,MESADR ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;0R 
; TYPE 
: MESADR 
STVPE: Tv Ra’ =cePD ieEvE 
000004 HOV o4tSP) ,RO GET AOORESS OF OF ASCIZ STRING 
ey sat ™ 3 fee ee 604 Rebbe YEN 0 COUNT 
Q 6 
MOVB = (RO)+,-(SP) TYPED ONTO STACK 
ae IT ay INATOR 
a Boys re POP IT OFF THE STACK 
MOV ($P)+ Bk 
MOV (SP)+! 


£5 THE BESO Tie wes a_i rez 
Mic-ise REST Aah 

§ 
1B ets al To oe TYPED OF STACK 
Ne DAT UNTIL PRINTER IS READY 
Btsp),aTPB LOAD CHAR TO BE TYPED INTO DATA REG. 


i TO aR P 


pS ban po bee et Re as be fe fee fe es ft Be ee et Fee he 
Den Poe fone Pee Gs fen Bo fo ee ee pas be f= pa he 
NETS DORSCERONBRONE SERS 


Ree 
SH Eee 
re 
an 
a 
e 


ABYPR 2Bgy 
8 


0006 14 SS: 


xz 
par 
w 


010266 6S: 


SSBSRSS888 SSSSssssssssssses 


mee 
furor 
eee 
ore 
33 


SSGRRSBRO SSS SRA = 
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vwr 
4 
; 


H apm 1 °° ees eee 
Piittiiittittriiicitiiittiiitiiitiiiitititiiitiiitiiiriiiiiicey 


410 


SEGSARHIARSASOUIARKSE 


bSEa5E 











ates 001760 Te mo wr PLAS NIT FLAGS 
oS TYPE , ASTRK i PE ¥ 
1546 ye icpys.6s 
ee ket 
1e50 D01S44 BIC ITs SCHAR ;STRIP LOWER CASE OFF 
i 001544 cee a , SCHAR :W? FOR WORD 
8 001760 BIS $8173, FLAG ;SET FLAG BIT 
i 001S44 1S: Rhee 2102, SCHAR :B? FOR BYTE 
I 001760 BIS s8174, FLAG 
i 001S44 2S: CPS $103, SCHAR :C? FOR CONTINUE 
1 MOV (SP)+, FLAG 
1 001760 BIS 8B1TS, FLAG 
1 DUMP 
1 6S: 
i 4§: Pago , QUES 
ie a BR BePHLT 
- ae oe, 
1370 DUMP: Rove bOMPLST, RO ; INIT DUMP LIST 
ADD #20 (RO)  ;BUMP ADDRESS 
iad 001760 BIT s81TS, FLAG 
post 001524 HOV WORK, DMPLST 
CMP (RO)+, (RO)+  ;SKIP 1ST TWO ENTRIES 
go1Ne2 Li: MOV (RO)+, RI ;GET ADDR OF DATA FROM LIST 
1 BEQ DMPHL t :BR IF END OF LIST 
001 TYPE CRLF 
0014 MOV Ri, -(SP)  ;PUSH ADOR ON STACK 
001 JSR RO, SB2016 ‘PRINT OUT ADDRESS 
001440 001760 BIT #8173, FLAG 
1 BNE L3 
MOV #20, ;SET WORD COUNTER = 8 
Le: ite t+ cs 
001460 TYPE  .MSGOO 
7 JSR RO, SB20CT 
i ae} 
1474 ‘ 1 
1 DEC Re ;DECREMENT WORD COUNTER 
1474 BNE Le *BR IF NOT = 0 
1476 BR tI GET NEXT ENTRY 
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RECO OIAOONS = 


bm ae be be ho 


SRE None eS 








#10, Re 
(R154, -(SP) 


;DECREMENT THE WORD COUNT 


;GET NEXT ENTRY 
;RESERVED FOR SW. REG 
;END OF TABLE FOR SW. REG 
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eae SRE TERRES ST Lt bit ct RARERPRRRE CL des 
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+ 3HHININHHHHIHIHINH HHH HHH} HHH HHH 
CONSTANTS AND WORKING STORAGE 
2HIHHIHHHHHHHIHIEHIHIEIHiI}HIHIHEIHiI}HHIIHIHEHHIEHIHEHHIEEIHiEHIHHHE EEE 


rd 


ae 
ss CU; 





an “boro -. SCONTAINS NULL CHARACTER FOR FILLS 

ICNT: .BYTE 0 

STIMES: .BYTE 10. 

ym: 8 

? ‘i . 20 : i Je 
. WORD ° 37 ‘3 
. WORD ‘ sv DE! 
“ORD 31. it ELE 
* WORD 28. TIME OE. 
‘Heed 7: ithe Oe 
“WORD 9. iM DELS 
toep  B: H ELE 
WORD 3. iT ; 

ee a 

Riaen, Tee 

COUNT: . 0,0 

QTPIE: 00000 
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001712 4d -BYTE 177 
001714 


= 
~~~ 
i 
& 





x . /DH / ;ISR 
i Ri 
1 ; VECT ss 
1 : ITY 
1 ; 8 
1 ; PRD 
i . 0 Hy TTA. RERO T 
1 ‘ INITIAL XM TA ADDRESS 
: ES 5 *LINE rite 
17s ie: . 0 *ADOR OF BIN TO OCT TYPE ROUTINE 
53? atte TIME: ‘Be 0 ; TIMER 
ioe a 4 Sart {ADDR OF START OF PROGRAM 
S40 001754 TX. TERM: 
i a .BYTE 000 s TRANSMITTER TERMINATING CHAR. 
1 i M: BYTE 001 ;RECEIVER TERMINATING CHAR. 
1 ESC. TERN: 
cus 901758 -BYTE iis ESCAPE SEQ TERMINATOR 
Bue Soisee ar 
Sue 001764 DISPLAY: 177570 ia 
cea a RAVE Rey con 
551 001772 ERCSR: 0 "RCV CSR SAVED ON ERROR 
177% PROGR: 0 RCV DATA REG SAVED ON ERROR 
bss at: 0 sRCV ON OS CHANGE 
a3 rece: O RCV CHAR COUN rit 
RDA: =O “RCV DATA ADOR. 
0 De: ales :XMIT DATA ADDR. 
559 O0e012 TKB: 177562 
560 002014 TPs: 177564 
ey ue ia wale 
-DATA PA ADDRESS TABLE AND PATTERNS 
563 o0e020 bat: .WORD OPI ADDRESS OF VARIABLE DATA BUFFER 
oe4 ooen22 “WORD DB *ADORESS OF MESSAGE 1 
“RECEIVER DATA BUFFER STARTS HERE. . 
ope 002024 {BUF: .BLKW 400 
S68 0030c4 VOB: 
968 003024 -BLKW 100 ; VARIABLE DATA BUFFER 
571 000400 OP1: .BLKW 400 
osoy a2 033 117 LPB: ‘BYTE 002,033,1:7,115,000 
004232 “EVEN 


sCLEAR TTY BUFFER 
tRESET INT. ENABLE 


COe 
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#1 


TTY INTERUPT ROUTINE 


TYINT: 


96-6 SE SE-46-SE-g EES-E E SEE bE bb bb bb 6 0 a a a a a bb a 


t 


: 
: 
: 
: 
: 
: 
: 
: 
: 
: 
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a 
ae 
Be. k oD o oo 
~ £9 8 rf 
z 3. Be Syt SF a8 2 
4 « 2ate: = mae = a = rae 
= ceeea Se oes aS 
ia vaiiou, 28 HEZe GeabEthhhets 
~ _zé 
a a ee: 
2B oe tages = yet Ge apt 
; ES 8 Fo 2£& @ews = 
Soh Ba SME saes TEMS SSS SR Se ees SOL 


a 
Sia da a pata ag iis ta ett 


CTLC 


a7 S 8 


Wit Tie 
Sc 
Spooner 
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: ae ean ee Te 
Witt titiiiiitiiiitiititiritititttttitiite: 





OO4465 BEGIN: 
JO44bb MOV #STACK, SP ;SETUP THE STACK POINTER 
oo4472 STPS, PRTY7 :SET PSW TO LEVEL 7 
asin sALWAYS START AT LINE 0 
CLR : THE pass COUN 
19 o01s42 MOV 866 N,SLPADR ; int MOE LOOP ADDRESS FOR SCOPE 
ees 001760 Bye 8fC<BIT2>, FLAG ; ALL TITLE BITS 


3 JHHIHHHHIHHIHHIHHHIHHIHHHHIHIHHHHHHHHH HHH HHI HHH 
; ISR PARAM INPUT ROUTINE 
+ JHHIHIHIHIHHIHIHH}HHIHIHHHHIHIHHHHHIHIHHHIHHHIHHH HHH HHH HE 


01 001714 GETIT: MOV eV RO : T_ISR IN RO 

Rise fare BXOH onire0 [Bin et rhe ev 
Low OO7sDe Type S01 ped 
GETBA: abe i PRY tive 
004562 027020 Cre (RO)+, (RO)+ j INCREMENT ISR POINTER 
Siero doa7a? fees e's OE : 
O04S74 104400 007610 GETVA: TYPE MSGO4 ;<15><12> VECTOR ADDRESS= 
O04600 004737 JSR PC, GETANY GET THE VECTOR ADOR. 
OO4G04 104400 007632 GETPRI: TYPE MSGOS ;<15><12>_PRIORITY= 
004610 004737 005550 JSR PC, GETANY ‘GET THE PRIORITY 
004614 004737 011704 JSR PC, GETPRM ;GET LINE #’S TO TEST is 
004620 1400 007670 TYPE jtseo7 3 <1) (12> PARAMS #2= 
poesd 000410 arene Sw t RBNTINUE 

010253 RSTART: TYPE »MFILL 

000000 ince #0, ;DELAY HERE FOR AWILE 

001564 LR LINE 


C 
001762 SWPRNT: CMP SSWREG, SWR 
afr 
tiated 001760 I IT1, FLAG 
24 YPE ° 


REST 
bo 007724 XSWPNT: TYPE REGO ;415><12> SET SWITCHES 


SESESSEL 


— 


RES 


Z 
o 
Fig 


é 
\ 
a 


or 
1 aaa 
——s 


SE RCE SRURN OUNCE SS SRR LGR S OR URN CRO MIS : 


OOPBACK TEST 
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Goee Bierce 
fPenes Sei ses 


E02 
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175100 TSTB aTKs sWAIT FOR TTY INPUT 
175074 MOV 3TKB, Re RESET DONE FLAG 
175040 MOV aSWR,  -(SP) 

006514 JSR 16 PRINTOUT SWITCHES 
010266 TYPE, 


BR +4 
JHEHHHHHHEHEHHE 


;SKIP OVER HALT 
LtiLiitittLitiiittiiittiiiitititetiiieiiieeiiiyy 
ITCH OPTIONS 


: GSE SE SE AE AE SE EE SE SE EE Eg a aga a aa a aa a a a a HE 








SWRSET: HALT sHALT FOR SWITCH SETUP 
744 001542 T: SRESTRT,SLPAOR ;SETUP LOOP 
aes Reetir. poy ,Ri 
177775 BIC 8177775, Ri STRIP JUNK 
002020 001736 MOV DAT(1), IXDA INIT DATA ADOR FROM TABLE 
TST Ri VARIABLE DATA SPECIFIED? 
BEQ SUXCC *BR IF NO 
: JHE ertttitit ey 
; GET VARIABLE DATA 
007746 “4 MSG10 weno (12) ENTER DATA (112) 
QereTR ¢ iooF oAfa 
V08 ; pur IT HERE 
go2024 001734 SUXCC SIBUF, IRDA ; BUFFER ADOR 
30 PC, SETBUF GET BYTE S 
PC, SBAUD CALCULATE TIME DELAY 
aTTYINT, 2860 SETUP TTY VECTOR 
#100; TKS | ;AND ENABLE INTERRUPTS 
Nov stbur, Re 
CLRIB: CLR (Re)+ CLEAR INPUT BUFFER 
003024 CMP 8VDB, R2 
BNE CLRIB 


FOe2 
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5 JHAHIEEEHHIHIEHHEEHHHEE 
; SE IMER % 
5 SEE EE EE EEE 


Sea aa a3 





012737 900060 006500 SUTIME: MOV #60 MSECS ;PRESET COUNTER 

12737 000100 MOV STIMER, 100 “SETUP LINE CLOCK VECTOR 
005070 bier nae 000102 HOV e240, ioe “AND PRIORITY canes 

£98 104 Bt vere MOV eno.” 4 tet pe ne 

674 008112 052737 000100 177546 BIS #1 17754 ;ENABLE LINE CLOCK 

B75 005120 o00441 BR t 

677 BUS ERROR RETURNS HERE IF NO LINE CLOCK 

679 005122 012737 O064S6 OO0104 NOLC: MOV #TIMER, 104 ; SETUP RTC VECTOR 

680 005130 Ole?s Boos 000106 MOV #340, ' 106 sBNO PRI ITY 

681 0051 12737 005172 OO0004 MOV 81S 4 : BUS ERROR VECTOR 

682 0s 1'¥4 Ole737 $40 000008 HOV esa, 6 : >SET PRIORITY 

ci eats Berar lll ee ov ili,’ ew ERLE REAL Tine Ihe CLOCK 

68 005170 OOO4IS BR NORTC * CONTINUE 

687 005172 012737 MOV #2$, 100 *SET UP FOR LSI 

ies tee yal BE, oes 

690 10 O01 BNE 3$ 

691 O0S2i2 104400 TYPE, MSG19 

be 012737 MOV STIMER, 100 

7) 

695 01 MOV 86, 284 ;SET TRAP VECTOR 

6% pen CLR ast :SET BUS ERROR VECTOR 

697 012706 MOV TACK, SP SETUP STACK 

6 1044 STPS, PR 

633 tare 14 001744 MO 16,82016  ;SETUP BIN TO OCT ADDR 

701 

702 

703 $ ELAERLESRKAREKAE SY SERREEREAEER EERE EEE 

704 : GOTO THE MODULE AND RUN A 

~ : KEKRLRELELELKSREKLSLELRERKEE KSEE RKEEE 

707 005254 004737 011042 VIGO: JSR PC, START GO TO ISR 


GOe 


VT61/T LOOPBACK TEST MACY11 27(1006) O2-MAR-77 16:44 PAGE 18 
OZVTLA.P11 O2-MAR-77 16:43 


Ne i tel-b-th-$-5-5-ial-bdet-f-bel-ielalalahatetetelleteleteleieheiei ht tlalalalt tt tb baldatdt Lada 
; END OF PASS ROUTINE 





oe + ppeenens— pecan 9-3 7 gpagnmmnentonnnenrert 
zie toer3? 001576 ~— rey sence iP tReT THRU 
at 2397 001 frcaSICNT i TREREMENT TIERATION COUNT 
zis 193535 cate 001600 ise St fheS, SICNT bore ENOUGH YET 
aig Nese 1 001600 1S: ove #1, SICNT SONIR ITERATION COUNTER 
718 12560 JSR PC’ NEEXT GO CALCULATE BAR REG 
78 ite 000100 001760 gir tT, FLAG j THRU ALL LINES YET 
el 040100 001760 BIC SBITG+ESC,FLAG ;INIT FLAG AND TYPE END PASS 
723 Se 001576 r3t Spnss FIRST PASS 
Fe 010000 174410 BIT 8SW12, ISWR ; INHIBIT TYPEOUTS? 
1 Be *BR_IF YES 

bt Mais peell =(SP) 3<15><12> END OF PASS 
723 004037 006514 TSR. RO, $82016 ;PRINTOUT PASS COUNT 
73 ae 174360 gir , SHR ity XMIT +RCV DATA 
733 104400 010156 TYPE MSG26 TRANSMITTED DATA= 
7H 013737 00420 MOV tXDA, 2S :SET POINTER TO TXBUF 
es a TYPE TYPE TXBUFFER 

1 010204 3S: CPE MSG27 ;RECEIVED DATA= 
3 ae 001734 005436 HOV tROA, 4S i SET POINTER 10 RXBUF 

4S: 0 F 
741 Ste 040000 174314 65: BIT SBIT14, 2SHR ONE PASS ONLY 
a5 001576 SS: INC SPASS UP PASS COUNT 
744 005737 001576 7S: TST SPASS 
ae baer? oo00020 174272 EY 8L00P,, ASUR i TYPE UNIT UNDER TEST 
74g 104400 011014 TYPE TESTXX , 
749 1137% 001564 move = LINE, -(SP) 
730 004037 006502 JSR RO, S820CT ;TYPE UNIT # 
001 “BYTE 1 

16600 8S: HOV. par eger? + RO GET RETURN ADDRESS 
ree ono 10 95 MOV STACK, SP oO BRC e cTpek POINTER 
78 15788 erie ; MOV asv2, ’ RO REF Mont TOR ADORE ‘ 
reg eats OER OBR CRO BF tO NONTTOR 
7eb eed NOP 2 ‘Ove ROOM FOR 
OED 000240 hi sACT-11 
763 000137 004356 SDOAGN: JMP -CTLC RESTART TEST 





sseeaAe 2 


S. 


BS eS Per mich Stiri eS RE RAR 


DD OOWODOOM 
b+ bs ah = = pe 


WO NOUS GU 


HOe2 
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“or 
——- 
— 


j MHEEHERRIGROUTINE 10 INPUT OCTAL WORD FROM OPERATOR SRRELELEEELES 


SUBROUTINE TO INPUT OCTAL 
[evensnensconeennnnemtensens.wenenyanverarenrasesgeeemnanennnaam 


01104 : bETANY: HOV (RO) roe sPUT WORD On 
t oiteee fee a 
11037 O01S4% MOV tRO). WORK sPRESET FOR DEFAULT (CR) 
001546 ANYMOR: ACCEPT nk *OCTAL IN 
1 1 MOV ,  (RO)+ iMOVE IT TO ISR 
RTS PC : SUB/ROUTINE EXIT 


$ eT eee ae ei ee 
1 3GGHHHHHHHHGHHHHHHEHHHHHIHHIEHHHIEHIHE HHH HHI HEHEHE 


SHLT: 
000240 NOP 
o00240 NOP 
O0s237 001604 SHLOT: INC SERTTL 31 NCREMENT ERROR COUNTER 
yet 001602 a rs SHLTAD :SEVE_ Rob RooRESS oF ae 
162737 00002 001602 SUB #2, $Hi TAD iBND 
0101% MOV Ri, -(SP)  ;SAVE ie 
032777 020000 174126 BIT 881T13, SSWR =; INHIBIT ERR TYPEOUTS? 
001075 BNE TRX *BR IF YES 
104400 010266 TYPE CRLF 
117701 173734 MOVE  9SHLTAD,RI1 EXTRACT HLT CODE 
906301 ASL Ri "AND ALIGN IT 
16137 O060S0 005660 MOV EMTAB(R1),.+10 :GET REAGER ADDRESS 
1 TYPE “AND PRINT R 
4 -(SP) “PUT LINE ® TACK 
JSR ; T ‘TYPE IT 
oo2 .BYTE 2 
001 “BYTE 1 
jowion 10004 TYPE MSG1 ; < AT LOC 
13746 MOV $HL TAD, -(SP) GET HLT ADDRESS 
006514 J RO, $82016 3 AND pair 
71 TST Ri *HLT CODE = 0? 
1 BE TRX ‘BR IF YES 
1 000006 CMP 86,R1 :1S 4 T+3? 
BNE 1$ -BR IF 
TS Re ‘PRINTOUT BAD DATA? 
001406 BEQ 2s : BR 
104400 010124 TYPE MSG2 *¢ TA= > 
MO Re, -(SP) ;GE 
006s02 JSR ; SB20CT “AND PRINT IT 


;PRINT OUT GOOD DATA? 
:< GOOD DATA= > 


dont 

& 

ane 
2a °3 


8 
— 
£ 
= 
Oo 
a 
© 





010140 TYPE 


5 


2 
‘ 
4 


SS RRHISRES : 


fata 


A 
A 


SORTER CORUM COR CDSE RaR Tome SOMOS 
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110346 MOVB R3, - (SP) GET DATA 
o06s02 JSR RO, SB20CT "AND PRINT IT 
003 BYTE 
BYTE 1 
010266 TYPE CRLF 
3$ BR TRx 
005770 005702 1S TST Re sPRINTOUT RCV CSR? 
Bre, ats "2 8 dey 
1 010015 TYPE MSG13 : < RCV CSR=) 
006000 010246 Re, -(SP)  3GET DATA 
006002 004037 006514 JSR RO, $B2016 ‘AND PRINT IT 
006006 005703 TR3: ‘TST R3 sPRINTOUT XMIT CSR? 
006010 001407 BEQ TRX "BR IF NO 
04400 010027 TYPE MSG14 : < XMIT CSR=) 
25 DOMES? 006514 MOR en i BEo PRINT IT 
104400 010266 TYPE ,CRLF . 
006030 032777 100000 173724 TRX: BIT 881T1S, JSWR  —_ ; HALT_ON ERROR? 
008036 001401 Q HL TX BR IF NO 
i: t T 
104412 HLTX: KBOIN 
012601 MOV (SP)+, Ri RESTORE Rl 
oo0002 RTI "AND RETURN TO PROGRAM 
10275 TAB: EMO 
anes - EM1 
010353 EM2 
O10MeS eH? 
BiOseS EMO 


‘eng UOT 25 UO) eee 


seer «= Regen 


; TE TIMER DELAY 
g, MEE AE SE AE SE AE SE AE SE a a a a a a a a aa aa aa aE 
013702 001730 SBAUD: MOV PARAM2, Re “GET PARAM2 
042702 176077 BIC #17607? , Re ‘STRIP OFF ALL BUT SPEED 
Gost ROL Re 
1 ROL 
102 ROL Re 
1 Oiee37 001606 001572 aw a (R2), STYME -SET TIMER DELAY 
crates Rts pe " . Pelt 
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02-MAR-77 16:43 


a 
: 


2 
: 





‘a 

rr eS 

ry ror 
— 


See RRS eS SEORREC RS Bee R RES Re eas Ie soe 
FaEGAS Seles 


ee 





wouoonow 
Be be bt bs et 


27( 1006) 


ay & 
mene 


001544 


001544 


JO0e2 
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: eam 71 WON eer: 
: MTTiitiiiiiiiiiiiiiiiiiiii itt t tte it ey 


; CALL= 

érEADC: NOV 
MOV 
ae 


BIC 


RTI 
; tt 
HEHE 
A CALL= 
éreaos: Mov 
MOV 
MOV 
éeTIC: fo 
BNE 
dct: accEPT 
ee 
GOTIC 
MOVE 
ire 
BMI 
1S: Rove 
T 
RTI 


SHEE 24 
READ A STRING ROUTINE 
JHIHHHHHHHHHEHEHHE 


GETCHR FROM TTY 
;RETURNS HERE WITH CHAR ON STACK 
(SP) ,-(SP) sPUSH THE PC 


wcspS, 205) ett poe 


74 

al $CHAR SAVE 
oT e00 SCHAR =; BSTRIP 
SCHAR, 4{SP) sPUT 
1-0-0000 8 9 9 a 9 a a a a a a a at 


; INPUT A 


#E-06-E SE SE Sb 38-8 ESE SE SEE ab 4 0b a a aaa a Hb EE 


GETSTR s INPUT A STRING OF CHARS FROM TTY 
er aR NPUT WITH LINE FEED 
(SP), Re : popRESS OF iteuT SUFFER 
Re, ’ Rep) ANS BUT Back in ST 
GET A CHAR 
aise (SP)+  ;IS IT BINARY DELIMITER 
corre BR IF NO 
SWORK GET OCT. CHAR 
SWORK, (R1)+ + bee ber’ CHAR. 
#136, SCHAR j TERNINATOR=BIN. DELIMITER? 
;BR IF NO 
GETIC : 
ne eke 
BF tc ida iF FD . 
FLAGS 
Fal) 
SQHAR, (RLD 
, CRLF ;TYPE A LINE FEED 


KO02 


: 
: p : 
2 RS é 
: & 4 5 2 
Pog of sip hen eg 
.| Mepis ined @ | 
0 eettet ea Ee Gait | 
t2 3 eee oe Hu us wore Set Otee Sar wee 
SS = Sige” 2 3 tc 
a , 28 *, < deca 2 
; #, es 
, #2 paar ay sae ey 
: fd & $a «8 #8 
4 
: : vCres 
ee ee 
} 
3 





T LOOPBACK TEST 


Pll 


: > 2° Sa NSSSNIDBRSSUBEOSDEDEEYEES £52 AURA MORTRSOTEIIDITE 


3 
>» 


ee ee ee ee ee ee ee ee ee ee ee 


RRR Ree SSSen ron Seelam CON See RR TOR Rae SRR T Onoda iad saa : 


LOe 
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SE Si a E d- d ESE E k-k aE  E ab E b S-k k a bab a aaa  b  a a 


: CLOCK INTERRUPT ROUTINE 
o SERERKEREEERRELRRALELKSAKERERELEUSLEREAAERLRAEESARHERAARRKHRRERES 


0064S 005337 006500 TIMER: DEC MSECS sCOUNT 60 C 
90 TIMEX BR I NOT 60 
1 000060 006500 MOV 860 MSECS RES 
005237 001746 Saal INC TIMt + SECONDS 
Goei7% 900002 ae i ;RETURN FROM INTERRUPT 
Wetttiiiriiiiiitiiiiiiieeiiitiistii ies 
BINARY TO OCTAL hey AND TYPE 
j $BeOCT---ENTER SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
: COMOV NUM. -(SP) ;NUMBER TO BE TYPED 
: JSR RO, $820CT “CALL FOR TYPEOUT 
: _BYTE ON :N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
: "BYTE Mf *M=1 OR O 


; L=TYPE ING ZEROS 
;0=SUPPRESS LEADING ZEROS 


' §8201----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST SBSOCT OR $B2016 





HOV -(SP) 
JSR , $8201 
;$B2016---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;CALL: 
f SSR RO, $8206 
scr: Ee EAS PAED SafbRT™S 10 
ee , 
a Ts 
eB iene 
* a 
Rove SohO0E tT THE NUMBER OF DIGITS TO TYPE 
ca i, ie ft MAX. ALLOWED 
’ 
mr ik Pied ie edt ae 
1S: ROL re +RoTaTE ee Ino “c- 
28: ROL RS ;FORM THIS DIGIT 
a & 
an ie ;BR IF NO 





MOe 


ane 0’s 
T ASCII 
NOT ALREADY 
T ISN’ 
IGIT 
Sack FOR RETURNING 


be 
BR TF 
Fist 
c 


R OF DIGITS To TYPE 


IGTQGRS FOR ASCHT DIGIT 
ADORE 
~ 
Tae 


;OCTAL DIGIT COUNTER 


2 y o%2F 
“or exo 52 gf TL 
: ate oer 3 : é ag ; d é 
2 wt z& 5 
. gegen’ Sooe separeeee Sooke w ERTTEEL 
ie eae 8 $ i Hs bE 
: 
Ay 
= yg 
55 & Lae - 


er ol aed 
ERES ER Se Aste Soot RR § 
“a ELL 


: DSSSBSMMRRER 7107 em: PEA aDGRANDARS OEE maTe Kner Keneraay 





tk kh a a at a ht ad dt dt et a tt ed tt 
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OZVTLA.P11 


ies 
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——) 


— 


+ 


Re 


s: 


2 


= i ES 
SiG EE 


Bae Bae fo Be bt Be Bm FF Fe Be be Fe Bs PP ee tb fe frm Pe Pe Pee ee = he B= hh bP bm ho hm Pm 
; 


BENE HEH BRBVRNVORLS serie he SSBIRREBRCS 
- 
NONE wh -OSSIEREGNES 
— ba Peed frescos =Yae =+=+ 
=t=« ta t= atat« “~~ “~ 
* 
“ny 





8 
é 


2 


NOe 
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5 EE a A a a a a a a a 


SPWRON: MOV SSPWRUP , a824 
Re 





SS et PAR RELA SOE 


ib bb bb ba aaa a a a aa a a da 


iil WILL BE PRINTED OUT. 


SPWRUP : ov a 

CYpS, PRTYO 

gmp’ 98200 
-KBDIN: BIT »FLAG 
samt * “ym 

Eg ea 

Dre St on 

ACCEPT , WORK 

oft rite 

a 

oe 
srs Bi Sa 
. SUSUR: 


Se2aSsss S 
or 


3415><12> POWER FAILED.. 


iN, ir 


: TYPE :* 

: 

: OCTAL TYPEOUT 
Be I 


IPE BH on eraunt 
*GET VALUE 


EERE AZ oor ven 


WRONG WAY? 


Se Se Se Se Ss See we @wewe ee ee ee eeevoeee @ 


Ear 
Sin. 


B03 
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OOPBACK TEST 
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Pil 


DZVTLA 


VT61/T 


neue oe 
PATTERN 
TO BUFF 
NATOR TO ZERO 


;WITH SOFTWARE REGISTERS 


TUP BUFFER ADDR 
sADJUST COUNTER 
GENERATE RANDON CHAR 
E OVER 


NO TRY AGAIN 

eA 

;DEC 

;ALL_ DONE 

ca 

RESTORE RO 
R3 
RS 


iSiVE BS 
; SAVE RO 
; VARI 
;YES 

;SE 
RESTORE 


; MOVE 
‘St 


Cc 

no a ee a 8 Ee 
a Le Te 
rx}=] SoBe h i scesepneaihiy 2 SOU seee Sonsslesesse 


RANDON CHARACTER BUFFER GENERATOR 


pparvasaent Pougs Besse saaaaaigussyeet gem 


REST 
Sat 
EX 
+ LEERESKRREELESSRREKSAREMEREEHL AE REEDELERER EE ES RERE KEKE ERLE REE REES 


: 
: 


i) $ 


SETBUF : 


1s 
es: 
Ss: 





= me eeu 


BPSHSFT PPS PT RGUGTRRGRAZSIZSSLSSSR-LRLTK RCRA BSYRS RRS BERKS. 


ee Ed mh Od a ag nd Oh ed Oy ed ed ad Od ed nd ed end mR ed eg ad a Ad nh ed wy Ore OG OK) ed ed a Ce Od ed Oe ee) od od ed ee) ed doo 
Co Ne ee ee eee eee ee ee ee eee ee eee ee hee ee hat ee eae ee eee eee hae ee hae bee hae, hem ham ham ham kam, lem ham ham kam ham ham em hem ham bem lem bem ham hem ham ham hem bam ham hae nam em hem ee! 
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;CHECK FOR TERM CHAR 
;INC_ BYTE COUNT 


;START OVER 


;SET BUFFER ADDRESS 


wet 


@ 
HEwRSSSOSOL DevH tesa 


10$ 
118: 
12s 


a 
w 


010000 
00164e 
GO1644 
001650 


8 om a 
GESGESEBGoe Bpcbecbs 


PRE RF Sanz ns 
cururucunual 
ed od oat ed 


pam fam fae pb ph ph eh ph eh ph he ph ph ph 





! 
' 
i 
' 
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AREA RESERVED FOR MOST ASCIZ MESSAGES. 


Si SE HE SE SE aE a kk SE SA kk bd a a 


g, Ae aE SEE AE EE aE AE A a aS a a a a a a a a 
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< wm 
mae 
an ocd 
2 wie 
oO - 
4 “aA 
wu - a S 
-_ oO tat) ‘\ 
vA “A 
an — ~t 
S w 
a ~ Sout va 
a ph im = o5— < 2 
tee \N\ ‘N Nv aw x ~ - ~ 
“tm § “ 1A ~% -—N wi on kad 
. “~ wm -— + si y } ot ~ 
5 » a N eetN « x L2= ~ ¥ =z @ 
Y "iv om 5 WJ —_ ~ 
-sS » b3 J te 4 
234 a y & — 
“no we & Lo al 
a et = Se 58 SS -L6gs BFooes 
TZ? ft % N % - nun 
a — 4 a) 3 ed al 
=a oa Cod aN we 5 & ome: $ 
“ a = A A w= at 
4 wa uz "4 cw a wur-oO Fa} - 
ia) - —“A~A mM cond - w 
Rae aaaaaaan ~N via Raat . i: > > 
CucucuCuCU CuTUuCUCuCUuTY Atutu ww Wm Tw ~w ¥ Cucucucu . 
ad Od ag ed od ee eH _ wm aH Hwy ft be MMH A AA A 
Se dd de a a a a oe a ~vy wwwlwat wv wv —- Borv vy vqqnua 
AAAAAAAA IO van AAA Sf AAAAger, ARAA KKK 
NUTUALALAUn LAN inunnin co =\wmW MWNNZonRec- nw mnnnw ~~~ 
Pd ed a od a OH md md ee ee ee | MMH HA AAA 
NV VV 8 9 V9 VV ee NNN NAV ENN wwwwt Bt es sts v~rvrvrwnwnuye 
aA 
ww 


sae ROU GUU MRO DURRNUIURLERIIURINARNEEEOAaEE 


Sse Jacen — 
ee nn be 
diclatsielicoceestaleees © ee 
Lie sl mie 
Specs Cote ean am cna Kua SIEGES 


ieee ee ee pp ee eee ee 
AQOQOOOOOOOOO OOO OOOOOOOHO OOO 0000000000 
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l2e28 j HEEHHEMLLX INTERFACE SERVICE ROUTING 
12% BO RR 
le31 O11042 O00240 éTART: NOP 

1232 O110¥4 017700 170712 MOV aswR, RO -SETUP MODE IN RO 
tS atte fie Se BIC 8177400, RD. STRIP JUNK 
1 11 1 eS MOV eriSR, (R2)+ INT T 

1539 Silos Bis7sS Bisco Hv water’ Choos 

1238 O11074 013722 001724 MOV IOR; (R2)+ ; 

1 111 1 RY *SETUP BUS ADDR INDEX 
ise BI Siery Oblree fer Baton 

BS) SII Be oy ssc eee |S TED 

. 011120 ten 12560 : ISR PO REEXT 

146 

1247 011124 005037 00174 GO: CLR TIME 

1248 O11130 005037 001670 CLR DELAY 

teu 011134 005037 001674 CLR STOP 

1251 O111 oY SXLB: KBOIN 

1 BH ie sans 001650 00164 MOV COUNT+2, COUNT 

1253 011150 013705 001650 MOV COUNT+2. RS 

1254 O111S4 040000 001760 BIT , FLAG 

1 111 Q 1 

1 111 001646 MOV c 

1 111 12324 1S: JSR PC; STARTR 

1 111 e110 JSR PC’ STARTX 

1 1 I CLR TI 

1260 O1 100000 2s BIT 8XFLG, STAT 

126 TEST BNE 

! it 4 040000 7S: BIT : G, STAT 

Leb O11 00174% 001572 cre TIME, STYME 

a ESM 

1 Bt Aeons HLT 1 : ERROR ME HERE COULD IMPLY THAT 
a OL andes ae Termin 1,0 GEFL INE -FESSAGE NOT 
127) i 040000 001730 3S: BIT SHALF . DUPLEX, paris 

1 ot 00000 BIC 8XFLG, STAT 

1 11 12324 SR PC, STARTR 

1275 011270 00074 BR 

1 11 032700 100000 4S: IT 8XFLG, STAT 

1377 O11876 OO101: ere 

1 il Hx 00174 001572 NE, STYME 

1279 O11 105774 BLO 4 

1280 011310 011402 MOV BRCSR, Re 


FO3 
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1281 011312 ES 000000 


leBe 011316 1 


ABE 


s g 
: 7 
- z : 
#= ra ° Y 
ac - 3 z= e w 
ee at ea ee ee 
5 5 3 SEBBBRIE - eee 
- ee nmin, «BENE Z winks os ¢ 
5 extsbbnube, yeyyyy 5 penbas a8 § 
=: eL 
2 1 5 x Bes Ex 6 
ie oe. ee oe 
: w oo i as eeees bal SOg ee EW aw OAD 
geste nek Seto ert a sanaesite e ca ig egedzn 
E 
sviasans Eoeupenenese seen Heleacete tones 
a : i ib 5 
Mba) eer 
S} : 8 5 8 


Ea 
col si Euiscaescsa seccede® «=| EOE 2 


Ba ES 


Mame RBRSSSSSSSSER POIROT SRR ROR Ret 


ee) and omg omg IG OE dd dg ed ad a ad ad md ad td a dd ed ed ed eg ed od od ed 
od tm dd ed td ed ed dg ed et Ok ad nd td ew 
Ooocoo BOOCOOOOOOO00O 92800000000oO OOOOOOOOOoOo0oOo 


BERR ERC CC OMMMM Mmmm Mannan a rename 


eed eh ad eh ah me) me a a md ed dd eh HH St ted 


001746 
100000 
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- 
So 
~~ 
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2 5 uw _.& 
cess EowS ot pb SG be € EE BGs 
ceil fy Meee BP fs § Eg, Be 
09512 ec GE og fe y SE a Bo wd Bal 


% + 9 
2 ¢ cyun + e 


Bot Di yg ae we > oes & 
bE 3 EEG, 


RI 

+2,R5 
Re 

x 

, (R24 


TERR , dSWR 


count 
fron 
Testo 
uesie 


paeisughenguessss za. pe ot sobtespaanenl SbabahSauars 


TESTDX: 
; ROUTINE 
PRM: 


18: 


~ Ww cu 


be 
9S: 
18: 
4g 


= 


MACY11 27(1006) 
001570 
00iS46 000054 


5 des 
PISA 


_ BERT a aaa IS SGR RES RRRRRRE PE RRRR BEBE R BERS SRS 


pee ee ee ead a ed eh ad Ot a a ef et ed ed ed 
RE ed en) ag og me) sj Od ed gt td ee Oe) dg A Od ee papa tata bata tatatate tata tet te ett tte 
SGoo0o0oo0000000 GoOoooOOO0000000 


: PA ACU VCR ER MSS SSIS CCL Eas 





O2-MAR-77 16:43 








aren TEST 


ha haath ala tahiti tata tach hala acl LaLa Tactic at facta acacia bata tac tac tata ba tact fafa fa fa tc fa fac act haa 


z 
7 - 
“: 5 
= & 
fie 
z= wf 
= Sue 
a od x 
C 
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« =. ge. 9 
oe @seeeee S 
z #2 g Syon@adaag S48 
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100000 001570 


— , 


tt mt ot ot Sattetotettetetet ee 
OOOO OOO O0O0000000 


Baenn meses eee ores ss 
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2 
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MIT 


1413 
1414 ; HERREREOESOESEREEBOEES ERELELESPRE RSA EESESEBEERRERESPSSEER HS EH SE 
1415 TRANSMITTER INITIALIZATION SUBROUTI 

ae perrrrrr rere HPREELESRESEREESERESKHELSARASERERRSEELERERLEKELH ELE 
1418 1 110 STARTX: eH ESC, ,FLAG sESCAPE MODE YET 

i isa SPB, CAR(RY) 

1421 Ole 12764 MOV 8-4, BCR(RY) 

ie} iste Gia = ty OE oe anes 

t i i i é Sov XOR BARRY) LOAD T SS REG 

1425 012152 012764 MOV 8-1, BCR(RY) i080 CONT REG 

iiss BISIER Aesz99 es: BiG BGT 

1 o1 170 O13764 001704 000012 MOV BARTHP , BAR(RY) fy 4 

wes 12176 RTS PC 

18 1 uy ; : iT . 

me See Berk ie ee ee 

1433 012210 O01 BEQ 1$ :BR IF 

i tea Gheats HOY ,Re SAVE CSR FOR TYPE OUT 

14 leel6 1 HLT S 

i O12220 104400 010760 TYPE , NONEX TYPE ERROR MESS 

14 BR .- BR HALT 

1 040000 001760 1S: IT , FLAG 

1441 O1 1002 BNE 4§ 

te 01 DEC RS 

1 1 BNE NOXMON 

1444 O01 100000 4S: BIS 8XFLG, STAT SET XMIT_ DONE FLAG 

1s 1 14 Oe000C BIC STIE, ORCSR “CLEAR INTERUPT ENABLE 

144 bles ita 002006 SBN: Re ; INC TXBUF POINTER 

1 1 1 002006 000006 MOV XDA, CAR(RY) * LOAD ADORESS 

: Tee te 001710 st TR G ‘la I THIS £ FIRST TIME? 

1451 012276 012764 177777 000010 MOV #-1, BCR(RY) Poa evie COUNT REG 

1 1 001704 o00012 MOV BAR TH, BARCRM) ‘cer BAR BIT 

1 1 2 On 176 XISR2: CLR Tire 

1 eal 00171 CLR G 

1 Ol2322 00002 RTI 

1 7 . ESRERE RSS ASAP LSREBERSRRELE RE REESE RERLEERESSEREEAERSLRE HERE E EES 
1457 : RECEIVER INITIALIZATION SUBROUTINE 

i 5 EXRBRESRELREERESERSAKKSEEEMEKE RARER SERKERLESLSRHRRA KSA RLERERKR ER 
1460 012324 032737 O40000 001730 STARTR: BIT SHALF . DUPLEX, PARAM2 *HALF DUPLEX? 

1461 Ole3a2 001005 BNE BR IF ves 

1 1 001700 CLR 1 TART DELAY 

i i > 001700 1S: Inc T 1 

1465 O1 040000 2s: ¢ or G, STAT 

es He BI Rr 43! ; CLEAR 


RFLG 
T Ue BEER ver 0 DATA 


; SE 
igel 


= 
S: 
a 
za 
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001566 001726 


800760 001760 


JOQ3 
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RISR: 


18: 


4§: 


NEEXT: 


Ra— 
a 


ARRPZBSSRSACE 


=) 


maSEE 


SRIE+SIE, @RCSR 
PC 


ger 
#RIE+SIE, IRCSR 
G, STAT 


;CLEAR ERROR RECORDS 
;SET INTERUPT ENABLES 


;SILO_ OVERFLOW? 
CSR FOR TYPEOUT 


SERROR HLT 
; TYPE ERROR MESS 


‘BUT CHAR IN RI 
ia et a elt 
tBAVE CSRFOR TYPEOUT 


iSeRun, FRAMING OR PARITY ERROR? 


; iene REFER POINTER 


se IP ESOR NOT FULL 


;BR HALT 

;CLEAR INTERUPT ENABLES 
:SET RCV DONE FLAG 
;CLEAR FLAG 


sFIRST TIME THRU 
‘YES SET TO NONZERO 


;SET FOR LINE O 
;CLEAR OUT LINE # 
FOR 


a Tone THRU FLAG 


KO3 
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000004 SUB #4, (SP) ADJUST STACK TO CALL SELINE 
4g BMC : OUT LINE 4 
173 Ry)! n> 
001566 001704 MOV LINMSK,BARTMP  ;SET BITS 
001576 TST $pAss *FIRST PASS 
040000 001760 *SET ESCAPE FLAG 
PC ‘EXIT 












LOS 


Ko ReR-77 Tecude O27 NOt OES MREFERENE ‘Teele <-USER SYMBOLS 


OOPBACK 
ll 


aH 


10738 1116 
14Se8 
530 
1451# 
789 
30S 
406 


14 
1122 
lee 
ah38 
301 
ie 


901 


shige = BaRzES 


od ed ene 


$71 
1329 
14e0# 


£ KRsonkneeeaRcenecsaceanaaa=oe  sghettztenates gE 


SR SIRE ERGRAR RO RRECRREU CRORE 


EOS js Uct es ecsecetcctse ceecbscescctceteSaactes 


58 


ERRRSURES RTRs eee RT SEN 
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